home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 July / DPPCPRO0705.ISO / Editorial / Delphi 2005 / WinFormEditor / wed.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2005-03-23  |  4.5 KB  |  156 lines
  1. unit wed;
  2.  
  3. interface
  4.  
  5. uses
  6.   System.Drawing, System.Collections, System.ComponentModel,
  7.   System.Windows.Forms, System.Data, System.IO;
  8.  
  9. type
  10.   TWinForm = class(System.Windows.Forms.Form)
  11.   {$REGION 'Designer Managed Code'}
  12.   strict private
  13.     /// <summary>
  14.     /// Required designer variable.
  15.     /// </summary>
  16.     Components: System.ComponentModel.Container;
  17.     RichTextBox1: System.Windows.Forms.RichTextBox;
  18.     MainMenu1: System.Windows.Forms.MainMenu;
  19.     MenuItem1: System.Windows.Forms.MenuItem;
  20.     MenuItem2: System.Windows.Forms.MenuItem;
  21.     MenuItem3: System.Windows.Forms.MenuItem;
  22.     MenuItem4: System.Windows.Forms.MenuItem;
  23.     /// <summary>
  24.     /// Required method for Designer support - do not modify
  25.     /// the contents of this method with the code editor.
  26.     /// </summary>
  27.     procedure InitializeComponent;
  28.     procedure MenuItem2_Click(sender: System.Object; e: System.EventArgs);
  29.     procedure MenuItem3_Click(sender: System.Object; e: System.EventArgs);
  30.     procedure MenuItem4_Click(sender: System.Object; e: System.EventArgs);
  31.   {$ENDREGION}
  32.   strict protected
  33.     /// <summary>
  34.     /// Clean up any resources being used.
  35.     /// </summary>
  36.     procedure Dispose(Disposing: Boolean); override;
  37.   private
  38.     { Private Declarations }
  39.   public
  40.     constructor Create;
  41.   end;
  42.  
  43.   [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
  44.  
  45. implementation
  46.  
  47. {$AUTOBOX ON}
  48.  
  49. {$REGION 'Windows Form Designer generated code'}
  50. /// <summary>
  51. /// Required method for Designer support -- do not modify
  52. /// the contents of this method with the code editor.
  53. /// </summary>
  54. procedure TWinForm.InitializeComponent;
  55. type
  56.   TArrayOfSystem_Windows_Forms_MenuItem = array of System.Windows.Forms.MenuItem;
  57. begin
  58.   Self.RichTextBox1 := System.Windows.Forms.RichTextBox.Create;
  59.   Self.MainMenu1 := System.Windows.Forms.MainMenu.Create;
  60.   Self.MenuItem1 := System.Windows.Forms.MenuItem.Create;
  61.   Self.MenuItem2 := System.Windows.Forms.MenuItem.Create;
  62.   Self.MenuItem3 := System.Windows.Forms.MenuItem.Create;
  63.   Self.MenuItem4 := System.Windows.Forms.MenuItem.Create;
  64.   Self.SuspendLayout;
  65.   // 
  66.   // RichTextBox1
  67.   // 
  68.   Self.RichTextBox1.Dock := System.Windows.Forms.DockStyle.Fill;
  69.   Self.RichTextBox1.Location := System.Drawing.Point.Create(0, 0);
  70.   Self.RichTextBox1.Name := 'RichTextBox1';
  71.   Self.RichTextBox1.Size := System.Drawing.Size.Create(292, 266);
  72.   Self.RichTextBox1.TabIndex := 0;
  73.   Self.RichTextBox1.Text := '';
  74.   // 
  75.   // MainMenu1
  76.   // 
  77.   Self.MainMenu1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem1));
  78.   // 
  79.   // MenuItem1
  80.   // 
  81.   Self.MenuItem1.Index := 0;
  82.   Self.MenuItem1.MenuItems.AddRange(TArrayOfSystem_Windows_Forms_MenuItem.Create(Self.MenuItem2, 
  83.           Self.MenuItem3, Self.MenuItem4));
  84.   Self.MenuItem1.Text := 'File';
  85.   // 
  86.   // MenuItem2
  87.   // 
  88.   Self.MenuItem2.Index := 0;
  89.   Self.MenuItem2.Text := 'Open';
  90.   Include(Self.MenuItem2.Click, Self.MenuItem2_Click);
  91.   // 
  92.   // MenuItem3
  93.   // 
  94.   Self.MenuItem3.Index := 1;
  95.   Self.MenuItem3.Text := 'Save';
  96.   Include(Self.MenuItem3.Click, Self.MenuItem3_Click);
  97.   // 
  98.   // MenuItem4
  99.   // 
  100.   Self.MenuItem4.Index := 2;
  101.   Self.MenuItem4.Text := 'Exit';
  102.   Include(Self.MenuItem4.Click, Self.MenuItem4_Click);
  103.   // 
  104.   // TWinForm
  105.   // 
  106.   Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  107.   Self.ClientSize := System.Drawing.Size.Create(292, 266);
  108.   Self.Controls.Add(Self.RichTextBox1);
  109.   Self.Menu := Self.MainMenu1;
  110.   Self.Name := 'TWinForm';
  111.   Self.Text := 'WinForm';
  112.   Self.ResumeLayout(False);
  113. end;
  114. {$ENDREGION}
  115.  
  116. procedure TWinForm.Dispose(Disposing: Boolean);
  117. begin
  118.   if Disposing then
  119.   begin
  120.     if Components <> nil then
  121.       Components.Dispose();
  122.   end;
  123.   inherited Dispose(Disposing);
  124. end;
  125.  
  126. constructor TWinForm.Create;
  127. begin
  128.   inherited Create;
  129.   //
  130.   // Required for Windows Form Designer support
  131.   //
  132.   InitializeComponent;
  133.   //
  134.   // TODO: Add any constructor code after InitializeComponent call
  135.   //
  136. end;
  137.  
  138. procedure TWinForm.MenuItem4_Click(sender: System.Object; e: System.EventArgs);
  139. begin
  140.   Close();
  141. end;
  142.  
  143. procedure TWinForm.MenuItem3_Click(sender: System.Object; e: System.EventArgs);
  144. begin
  145.   RichTextBox1.SaveFile('testfile.rtf');
  146. end;
  147.  
  148. procedure TWinForm.MenuItem2_Click(sender: System.Object; e: System.EventArgs);
  149. begin
  150.   if System.IO.File.Exists('testfile.rtf') then
  151.     RichTextBox1.LoadFile('testfile.rtf')
  152.   else MessageBox.Show('Cannot find testfile.rtf');
  153. end;
  154.  
  155. end.
  156.